1 Imports System.Data.SqlClient
2 Imports Excel = Microsoft.Office.Interop.Excel
3 Imports System.IO
4
5 Public Class frmCustomerRecord
6
7 Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
8 Me.Close()
9 End Sub
10 Public Sub Getdata()
11 Try
12 con = New SqlConnection(cs)
13 con.Open()
14 cmd = New SqlCommand("SELECT RTRIM(ID),RTRIM(CustomerID),RTRIM([Name]),RTRIM(Gender), RTRIM(Address),RTRIM(City),RTRIM(State),RTRIM(ZipCode), RTRIM(ContactNo), RTRIM(EmailID),RTRIM(Remarks),Photo from Customer where CustomerType='Regular' order by name", con)
15 rdr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
16 dgw.Rows.Clear()
17 While (rdr.Read() = True)
18 dgw.Rows.Add(rdr(0), rdr(1), rdr(2), rdr(3), rdr(4), rdr(5), rdr(6), rdr(7), rdr(8), rdr(9), rdr(10), rdr(11))
19 End While
20 con.Close()
21 Catch ex As Exception
22 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
23 End Try
24 End Sub
25 Private Sub frmLogs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
26 Getdata()
27 End Sub
28
29 Private Sub btnClose_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
30 Me.Close()
31 End Sub
32
33 Private Sub dgw_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgw.MouseClick
34 Try
35 If dgw.Rows.Count > 0 Then
36 Dim dr As DataGridViewRow = dgw.SelectedRows(0)
37 If lblSet.Text = "Customer Entry" Then
38 frmCustomer.Show()
39 Me.Hide()
40 frmCustomer.txtID.Text = dr.Cells(0).Value.ToString()
41 frmCustomer.txtCustomerID.Text = dr.Cells(1).Value.ToString()
42 frmCustomer.txtCustomerName.Text = dr.Cells(2).Value.ToString()
43 If (dr.Cells(3).Value = "Male") Then
44 frmCustomer.rbMale.Checked = True
45 End If
46 If (dr.Cells(3).Value = "Female") Then
47 frmCustomer.rbFemale.Checked = True
48 End If
49 frmCustomer.txtAddress.Text = dr.Cells(4).Value.ToString()
50 frmCustomer.txtCity.Text = dr.Cells(5).Value.ToString()
51 frmCustomer.cmbState.Text = dr.Cells(6).Value.ToString()
52 frmCustomer.txtZipCode.Text = dr.Cells(7).Value.ToString()
53 frmCustomer.txtContactNo.Text = dr.Cells(8).Value.ToString()
54 frmCustomer.txtEmailID.Text = dr.Cells(9).Value.ToString()
55 frmCustomer.txtRemarks.Text = dr.Cells(10).Value.ToString()
56 Dim data As Byte() = DirectCast(dr.Cells(11).Value, Byte())
57 Dim ms As New MemoryStream(data)
58 frmCustomer.Picture.Image = Image.FromStream(ms)
59 frmCustomer.btnUpdate.Enabled = True
60 frmCustomer.btnDelete.Enabled = True
61 frmCustomer.btnSave.Enabled = False
62 lblSet.Text = ""
63 End If
64 End If
65 Catch ex As Exception
66 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
67 End Try
68
69 End Sub
70
71 Private Sub dgw_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles dgw.RowPostPaint
72 Dim strRowNumber As String = (e.RowIndex + 1).ToString()
73 Dim size As SizeF = e.Graphics.MeasureString(strRowNumber, Me.Font)
74 If dgw.RowHeadersWidth < Convert.ToInt32((size.Width + 20)) Then
75 dgw.RowHeadersWidth = Convert.ToInt32((size.Width + 20))
76 End If
77 Dim b As Brush = SystemBrushes.ControlText
78 e.Graphics.DrawString(strRowNumber, Me.Font, b, e.RowBounds.Location.X + 15, e.RowBounds.Location.Y + ((e.RowBounds.Height - size.Height) / 2))
79
80 End Sub
81
82 Private Sub txtCustomerName_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtCustomerName.TextChanged
83 Try
84 con = New SqlConnection(cs)
85 con.Open()
86 cmd = New SqlCommand("SELECT RTRIM(ID),RTRIM(CustomerID),RTRIM([Name]),RTRIM(Gender), RTRIM(Address),RTRIM(City),RTRIM(State),RTRIM(ZipCode), RTRIM(ContactNo), RTRIM(EmailID),RTRIM(Remarks),Photo from Customer where CustomerType='Regular' and name like '%" & txtCustomerName.Text & "%' order by name", con)
87 rdr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
88 dgw.Rows.Clear()
89 While (rdr.Read() = True)
90 dgw.Rows.Add(rdr(0), rdr(1), rdr(2), rdr(3), rdr(4), rdr(5), rdr(6), rdr(7), rdr(8), rdr(9), rdr(10), rdr(11))
91 End While
92 con.Close()
93 Catch ex As Exception
94 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
95 End Try
96 End Sub
97
98 Private Sub txtCity_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtCity.TextChanged
99 Try
100 con = New SqlConnection(cs)
101 con.Open()
102 cmd = New SqlCommand("SELECT RTRIM(ID),RTRIM(CustomerID),RTRIM([Name]),RTRIM(Gender), RTRIM(Address),RTRIM(City),RTRIM(State),RTRIM(ZipCode), RTRIM(ContactNo), RTRIM(EmailID),RTRIM(Remarks),Photo from Customer where CustomerType='Regular' and City like '%" & txtCity.Text & "%' order by city", con)
103 rdr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
104 dgw.Rows.Clear()
105 While (rdr.Read() = True)
106 dgw.Rows.Add(rdr(0), rdr(1), rdr(2), rdr(3), rdr(4), rdr(5), rdr(6), rdr(7), rdr(8), rdr(9), rdr(10), rdr(11))
107 End While
108 con.Close()
109 Catch ex As Exception
110 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
111 End Try
112 End Sub
113 Sub Reset()
114 txtCustomerName.Text = ""
115 txtContactNo.Text = ""
116 txtCity.Text = ""
117 Getdata()
118 End Sub
119
120 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
121 Reset()
122 End Sub
123
124 Private Sub txtContactNo_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtContactNo.TextChanged
125 Try
126 con = New SqlConnection(cs)
127 con.Open()
128 cmd = New SqlCommand("SELECT RTRIM(ID),RTRIM(CustomerID),RTRIM([Name]),RTRIM(Gender), RTRIM(Address),RTRIM(City),RTRIM(State),RTRIM(ZipCode), RTRIM(ContactNo), RTRIM(EmailID),RTRIM(Remarks),Photo from Customer where CustomerType='Regular' and ContactNo like '%" & txtContactNo.Text & "%' order by city", con)
129 rdr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
130 dgw.Rows.Clear()
131 While (rdr.Read() = True)
132 dgw.Rows.Add(rdr(0), rdr(1), rdr(2), rdr(3), rdr(4), rdr(5), rdr(6), rdr(7), rdr(8), rdr(9), rdr(10), rdr(11))
133 End While
134 con.Close()
135 Catch ex As Exception
136 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
137 End Try
138 End Sub
139
140
141 End Class